From: Richard M. Stallman Date: Sun, 6 Jun 1993 06:46:58 +0000 (+0000) Subject: (Fredraw_display): Redraw all visible frames. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95543 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9223a96afd960fd4b3bc887bd96aa23ef42c8579;p=emacs.git (Fredraw_display): Redraw all visible frames. (redraw_garbaged_frames): New function. --- diff --git a/src/dispnew.c b/src/dispnew.c index 9f57065c2e4..7c1da91986d 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -201,26 +201,26 @@ DEFUN ("redraw-display", Fredraw_display, Sredraw_display, 0, 0, "", Lisp_Object tail, frame; FOR_EACH_FRAME (tail, frame) - /* If we simply redrew all visible frames, whether or not they - were garbaged, then this would make all frames clear and - nredraw whenever a new frame is created or an existing frame - is de-iconified; those events set the global frame_garbaged - flag, to which redisplay responds by calling this function. - - This used to redraw all visible frames; the only advantage of - that approach is that if a frame changes from invisible to - visible without setting its garbaged flag, it still gets - redisplayed. But that should never happen; since invisible - frames are not updated, they should always be marked as - garbaged when they become visible again. If that doesn't - happen, it's a bug in the visibility code, not a bug here. */ - if (FRAME_VISIBLE_P (XFRAME (frame)) - && FRAME_GARBAGED_P (XFRAME (frame))) + if (FRAME_VISIBLE_P (XFRAME (frame))) Fredraw_frame (frame); return Qnil; } +/* This is used when frame_garbaged is set. + Redraw the individual frames marked as garbaged. */ + +void +redraw_garbaged_frames () +{ + Lisp_Object tail, frame; + + FOR_EACH_FRAME (tail, frame) + if (FRAME_VISIBLE_P (XFRAME (frame)) + && FRAME_GARBAGED_P (XFRAME (frame))) + Fredraw_frame (frame); +} + static struct frame_glyphs * make_frame_glyphs (frame, empty)